﻿Public Class FormMain



    Private Sub BarButtonItemExit_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExit.ItemClick

        Me.Close()

    End Sub

    Private Sub BBItemConnect_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBItemConnect.ItemClick
        Dim DB As New AuditGardDB

    End Sub
End Class
